home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1986 January
/
Ahoy_Magazine_86-01_1986_Double_L.d64
/
sequential rec
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
698b
|
26 lines
0 rem << rr25-2 >>
10 rem =-=-=-=-=-=-=-=-=-=-=-=-=-=-=
20 rem - sequential receiver -
30 rem rupert report #25
40 rem =-=-=-=-=-=-=-=-=-=-=-=-=-=-=
50 rem receive a sequential file
60 rem from the rs-232 port
70 rem =-=-=-=-=-=-=-=-=-=-=-=-=-=-=
80 print chr$(147)
90 open 2,2,0,chr$(8)+chr$(0)
100 get#2,j$ :if (st and 8)=0 then 100 : rem clear the receive buffer
110 print"send file to (1) printer, (2) disk, or (3) screen" : input a$
120 n=val(a$)
130 on n goto 150,160,180
140 goto 110 : rem try again
150 open 1,4,4 : goto 190 :rem printer
160 input"save with what filename";f$
170 open 1,8,8,f$+",s,w" : goto 190
180 open 1,3 :rem screen
190 rem - receive data -
200 get#2,c$ : if c$="" then 200
210 print#1, c$;
220 if c$<>chr$(26) then 200
230 print#1 : close 1
240 close 2 : end